[高分求助]vb编程,文件用CommonDialog1如何另存？

[高分求助]vb编程,文件用CommonDialog1如何另存？
这是我现在的程序:
Screen.MousePointer = vbHourglass
Dim i As Integer
Dim j As Integer
Open "c:\库存表.csv" For Output As #1
For i = 0 To 100
For j = 0 To 3
Print #1, MSHFlexGrid1.TextMatrix(i, j) & ",";
Next
Print #1, vbNullString
Next
Close #1
Screen.MousePointer = vbDefault
功能就是"把MSHFlexGrid1表内的内容存到c:\库存表.csv"

我想加入一个CommonDialog1,让这个"库存表.csv"另存到任何地方.
谁能帮我改写一下以上程序实现我这个功能？
谢谢，我还加了个验证有没有重名：

Screen.MousePointer = vbHourglass

Dim i As Integer
Dim j As Integer
CommonDialog1.Filter = "CSV File|*.csv"
CommonDialog1.ShowSave
If CommonDialog1.filename <> "" Then
If Dir(CommonDialog1.filename) <> vbNullString Then
If MsgBox("原文件存在，是否覆盖？", vbYesNo, "提示框") = vbYes Then
Kill Commo

关于VB编程，求助高手，高分！！！ 高分求助，vB与solidworks编程 高分求助，C编程。给文件里的每行加号码 VB编程 高分 求助编程高手：vb编程 求助c用函数编程 VB编程求助~~~~~~~~~~~~~~ 紧急求助VB编程！ VB编程求助 vb基础编程求助